home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
prtfrm51.zip
/
FRMSRC.ZIP
/
FDEMO04.DFM
/
FDEMO04.txt
next >
Wrap
Text File
|
1996-06-21
|
14KB
|
562 lines
object Form04: TForm04
Left = 15
Top = 157
Width = 625
Height = 520
ActiveControl = Panel1
Caption = 'Form04'
Font.Color = clBlack
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
PixelsPerInch = 120
Position = poScreenCenter
OnCreate = FormCreate
TextHeight = 16
object Panel1: TPanel
Left = 0
Top = 0
Width = 617
Height = 105
Align = alTop
TabOrder = 0
object Label9: TLabel
Left = 16
Top = 64
Width = 423
Height = 21
Caption = 'This is a demonstration of the TPrintWin Component.'
Color = clBtnFace
Font.Color = clMaroon
Font.Height = -18
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
end
object DBNavigator: TDBNavigator
Left = -98
Top = -138
Width = 137
Height = 31
DataSource = DataSource1
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
Ctl3D = False
ParentCtl3D = False
TabOrder = 0
end
object Preview: TBitBtn
Left = 373
Top = 9
Width = 88
Height = 32
Caption = 'Pre&View'
TabOrder = 1
OnClick = PreviewClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
object Exit: TBitBtn
Left = 473
Top = 9
Width = 88
Height = 32
Caption = '&Exit'
ModalResult = 2
TabOrder = 2
OnClick = ExitClick
NumGlyphs = 2
end
object DBNavigator1: TDBNavigator
Left = 24
Top = 16
Width = 241
Height = 25
DataSource = DataSource1
TabOrder = 3
end
end
object Panel2: TPanel
Left = 0
Top = 105
Width = 617
Height = 240
Align = alTop
BevelInner = bvLowered
BorderWidth = 4
Caption = 'Panel2'
TabOrder = 1
object ScrollBox: TScrollBox
Left = 6
Top = 6
Width = 605
Height = 228
HorzScrollBar.Margin = 6
HorzScrollBar.Range = 298
VertScrollBar.Margin = 6
VertScrollBar.Range = 362
VertScrollBar.Visible = False
Align = alClient
AutoScroll = False
BorderStyle = bsNone
Color = clBtnFace
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
TabOrder = 0
object Label1: TLabel
Left = 37
Top = 6
Width = 43
Height = 16
Alignment = taRightJustify
Caption = 'CustNo'
FocusControl = EditCustNo
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 25
Top = 39
Width = 55
Height = 16
Alignment = taRightJustify
Caption = 'Company'
FocusControl = EditCompany
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 46
Top = 71
Width = 34
Height = 16
Alignment = taRightJustify
Caption = 'Addr1'
FocusControl = EditAddr
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 46
Top = 105
Width = 34
Height = 16
Alignment = taRightJustify
Caption = 'Addr2'
FocusControl = EditAddr2
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 57
Top = 137
Width = 23
Height = 16
Alignment = taRightJustify
Caption = 'City'
FocusControl = EditCity
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 49
Top = 170
Width = 31
Height = 16
Alignment = taRightJustify
Caption = 'State'
FocusControl = EditState
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 63
Top = 202
Width = 17
Height = 16
Alignment = taRightJustify
Caption = 'Zip'
FocusControl = EditZip
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Image1: TImage
Left = 300
Top = 132
Width = 85
Height = 89
Picture.Data = {<image000.bmp>}
end
object GroupBox1: TGroupBox
Left = 400
Top = 12
Width = 185
Height = 125
Caption = 'Testing '
TabOrder = 7
object Label8: TLabel
Left = 24
Top = 20
Width = 107
Height = 16
Caption = 'Label in GroupBox'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object CheckBox1: TCheckBox
Left = 24
Top = 48
Width = 97
Height = 17
Caption = 'CheckBox '
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object RadioButton1: TRadioButton
Left = 24
Top = 76
Width = 113
Height = 17
Caption = 'RadioButton1'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object RadioButton2: TRadioButton
Left = 24
Top = 96
Width = 113
Height = 17
Caption = 'RadioButton2'
Checked = True
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 2
TabStop = True
end
end
object EditCustNo: TDBEdit
Left = 102
Top = 5
Width = 70
Height = 24
Color = clWhite
DataField = 'CustNo'
DataSource = DataSource1
Font.Color = clMaroon
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
MaxLength = 0
ParentFont = False
TabOrder = 0
end
object EditCompany: TDBEdit
Left = 102
Top = 37
Width = 211
Height = 24
Color = clWhite
DataField = 'Company'
DataSource = DataSource1
Font.Color = clMaroon
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
MaxLength = 30
ParentFont = False
TabOrder = 1
end
object EditAddr: TDBEdit
Left = 102
Top = 69
Width = 211
Height = 24
Color = clWh